home *** CD-ROM | disk | FTP | other *** search
/ MacWorld: Hardware Guide 1994 / Macworld Interactive - Hardware Guide 1994 (PDO).iso / Demos / Aldus® SuperPaint / Aldus SuperPaint 3.0 Trial Size / Aldus SuperPaint 3.0 Trial Size.rsrc / TEXT_252.txt < prev    next >
Text File  |  1993-03-24  |  4KB  |  47 lines
  1. % g! - v1 - Copyright 1991 Silicon Beach Software, Inc.
  2. userdict/gr_d known not{userdict begin/gr_d 50 dict def/gr_b{gr_d begin}bind def/gr_e
  3. {end end}bind def gr_b/bd{bind def}bind def/g_ea[]def/g_mg 60 def/g_xg 250 def/g_ss{currentscreen
  4. /g_a exch def/g_b exch def/g_c exch def/g_a load type dup/arraytype eq exch/packedarraytype eq
  5. or{/g_ng 72 g_c div dup matrix defaultmatrix dtransform mul abs def g_ng g_mg lt{/g_c g_c g_mg g_ng
  6. div sqrt div def g_c g_b/g_a load setscreen/g_ng g_mg def}if g_ng g_xg gt{/g_ng g_xg def}if}
  7. {/g_ng g_xg def}ifelse g_ea 0 setdash}bd/msc{0 index 2 index eq 2 index 4 index eq and{pop pop
  8. setgray}{setrgbcolor}ifelse}bd/fmd{4 index 3 index add 2 div add exch 5 index
  9. 4 index add 2 div add 0 index 6 index sub dup mul 2 index 6 index sub dup mul add 1 index
  10. 5 index sub dup mul 3 index 7 index sub dup mul add 2 index 6 index sub dup mul 4 index 6
  11. index sub dup mul add 3 index 9 index sub dup mul 5 index 7 index sub dup mul add 1 1 3{pop
  12. 2 copy lt{exch}if pop}for sqrt[8 2 roll cleartomark}bd/g_lf{gsave /g_noeo exch def dup/a exch def/b exch def
  13. dup/c exch def/d exch def dup/e exch def/f exch def dup/g exch def/h exch def/i exch def/j
  14. exch def/k exch def g_noeo{clip}{eoclip}ifelse newpath g_ss j 0 eq{i 0 lt{g i add/g exch def d i sub/d exch def}
  15. {h i sub/h exch def c i add/c exch def}ifelse/l g def/m e def/n h def/o a def/p c g sub
  16. def/q 0 def}{i 0 lt{f i add/f exch def a i sub/a exch def}{e i sub/e exch def b i add/b
  17. exch def}ifelse/l g def/m e def/n c def/o f def/p 0 def/q a e sub def}ifelse k{/r exch def
  18. r 0 get/s exch def r 1 get/t exch def r 2 get/u exch def/v s 0 get def/w s 1 get def/x s 2
  19. get def/y t 0 get v sub g_ng div def/z t 1 get w sub g_ng div def/A t 2 get x sub g_ng div
  20. def/B p u mul g_ng div def/C q u mul g_ng div def B C gt{B}{C}ifelse setlinewidth newpath
  21. 0 1 g_ng{pop v w x msc l m moveto n o lineto stroke v y add/v exch def w z add/w exch def
  22. x A add/x exch def l B add/l exch def m C add/m exch def n B add/n exch def o C add /o exch
  23. def}for}forall grestore}bd/g_bf{gsave/g_noeo exch def/a exch def/b exch def/c exch def/d exch def/e exch
  24. def/f exch def/g exch def g_noeo{clip}{eoclip}ifelse newpath g_ss/h b d sub def/i a c sub def/j d c b a f e fmd
  25. def d b add 2 div f add dup j sub/d exch def j add/b exch def c a add 2 div e add dup j
  26. sub/c exch def j add/a exch def g{/k exch def k 0 get/l exch def k 1 get/m exch def k 2
  27. get/n exch def/o l 0 get def/p l 1 get def/q l 2 get def/r m 0 get o sub g_ng div def/s m
  28. 1 get p sub g_ng div def/t m 2 get q sub g_ng div def/w j n mul g_ng div def 0 1 g_ng{pop
  29. o p q msc newpath d c moveto b c lineto b a lineto d a lineto closepath fill o r add/o
  30. exch def p s add/p exch def q t add/q exch def d w add/d exch def c w add/c exch def b w
  31. sub/b exch def a w sub/a exch def}for}forall grestore}bd/g_cf{gsave/g_noeo exch def/a exch def/b exch def/c
  32. exch def/d exch def/e exch def/f exch def/g exch def g_noeo{clip}{eoclip}ifelse newpath g_ss/h b d sub def/i a c
  33. sub def/j d c b a f e fmd def/k j def/l d h 2 div add f add def/m c i 2 div add e add
  34. def/n true def g{/o exch def o 0 get/p exch def o 1 get/q exch def o 2 get/r exch def/s p
  35. 0 get def/t p 1 get def/u p 2 get def/v q 0 get s sub g_ng div def/w q 1 get t sub g_ng div
  36. def/x q 2 get u sub g_ng div def/A j r mul g_ng div def 0 1 g_ng{pop s t u msc newpath n{d
  37. c moveto b c lineto b a lineto d a lineto/n false def}{l m k 0 360 arc}ifelse closepath
  38. fill s v add/s exch def t w add/t exch def u x add/u exch def k A sub/k exch def}for}forall
  39. grestore}bd/g_cvf{gsave/g_noeo exch def pop pop pop pop pop/a exch def/b exch def g_noeo{clip}{eoclip}ifelse g_ss g_c a mul 72
  40. div dup g_ng gt{pop}{/g_ng exch def}ifelse/g_ng g_ng round def/c a 2 mul def/d true def b
  41. length 1 sub -1 0{b exch get/e exch def e 0 get/f exch def e 1 get/g exch def e 2 get/h
  42. exch def/i g 0 get def/j g 1 get def/k g 2 get def/l f 0 get i sub g_ng div def/m f 1 get j
  43. sub g_ng div def/n f 2 get k sub g_ng div def/o a h mul g_ng div 2 mul def 0 1 g_ng{pop i j
  44. k msc c setlinewidth gsave d{fill/d false def}{stroke}ifelse grestore i l add/i exch def j
  45. m add/j exch def k n add/k exch def/c c o sub def c 0.001 le{/c 0.001 def}if}for}for
  46. grestore}bd gr_e}if
  47.